home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / top.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  52KB  |  2,342 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "top.h"
  5. init_top(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     VV[0]->s.s_stype=(short)stp_special;
  9.     VV[1]->s.s_stype=(short)stp_special;
  10.     VV[2]->s.s_stype=(short)stp_special;
  11.     VV[3]->s.s_stype=(short)stp_special;
  12.     VV[4]->s.s_stype=(short)stp_special;
  13.     VV[5]->s.s_stype=(short)stp_special;
  14.     VV[6]->s.s_stype=(short)stp_special;
  15.     VV[7]->s.s_stype=(short)stp_special;
  16.     VV[8]->s.s_stype=(short)stp_special;
  17.     VV[9]->s.s_stype=(short)stp_special;
  18.     VV[10]->s.s_stype=(short)stp_special;
  19.     if(VV[10]->s.s_dbind == OBJNULL){
  20.     VV[10]->s.s_dbind = make_cons(Cnil,Cnil);}
  21.     VV[11]->s.s_stype=(short)stp_special;
  22.     if(VV[11]->s.s_dbind == OBJNULL){
  23.     VV[11]->s.s_dbind = Cnil;}
  24.     VV[12]->s.s_stype=(short)stp_special;
  25.     if(VV[12]->s.s_dbind == OBJNULL){
  26.     VV[12]->s.s_dbind = make_cons(Cnil,Cnil);}
  27.     VV[13]->s.s_stype=(short)stp_special;
  28.     if(VV[13]->s.s_dbind == OBJNULL){
  29.     VV[13]->s.s_dbind = Cnil;}
  30.     VV[14]->s.s_stype=(short)stp_special;
  31.     if(VV[14]->s.s_dbind == OBJNULL){
  32.     VV[14]->s.s_dbind = Cnil;}
  33.     VV[15]->s.s_stype=(short)stp_special;
  34.     if(VV[15]->s.s_dbind == OBJNULL){
  35.     VV[15]->s.s_dbind = Cnil;}
  36.     VV[17]->s.s_stype=(short)stp_special;
  37.     if(VV[17]->s.s_dbind == OBJNULL){
  38.     VV[17]->s.s_dbind = VV[16];}
  39.     VV[18]->s.s_stype=(short)stp_special;
  40.     if(VV[18]->s.s_dbind == OBJNULL){
  41.     VV[18]->s.s_dbind = VV[16];}
  42.     VV[19]->s.s_stype=(short)stp_special;
  43.     if(VV[19]->s.s_dbind == OBJNULL){
  44.     VV[19]->s.s_dbind = VV[16];}
  45.     VV[21]->s.s_stype=(short)stp_special;
  46.     if(VV[21]->s.s_dbind == OBJNULL){
  47.     VV[21]->s.s_dbind = VV[20];}
  48.     VV[22]->s.s_stype=(short)stp_special;
  49.     if(VV[22]->s.s_dbind == OBJNULL){
  50.     VV[22]->s.s_dbind = VV[20];}
  51.     VV[23]->s.s_stype=(short)stp_special;
  52.     if(VV[23]->s.s_dbind == OBJNULL){
  53.     VV[23]->s.s_dbind = Ct;}
  54.     VV[25]->s.s_stype=(short)stp_special;
  55.     if(VV[25]->s.s_dbind == OBJNULL){
  56.     VV[25]->s.s_dbind = VV[24];}
  57.     VV[26]->s.s_stype=(short)stp_special;
  58.     if(VV[26]->s.s_dbind == OBJNULL){
  59.     VV[26]->s.s_dbind = Cnil;}
  60.     VV[27]->s.s_stype=(short)stp_special;
  61.     if(VV[27]->s.s_dbind == OBJNULL){
  62.     VV[27]->s.s_dbind = Cnil;}
  63.     VV[28]->s.s_stype=(short)stp_special;
  64.     if(VV[28]->s.s_dbind == OBJNULL){
  65.     VV[28]->s.s_dbind = Cnil;}
  66.     VV[30]->s.s_stype=(short)stp_special;
  67.     if(VV[30]->s.s_dbind == OBJNULL){
  68.     base[1]= VV[29];
  69.     vs_top=(vs_base=base+1)+1;
  70.     Lfind_package();
  71.     vs_top=sup;
  72.     base[0]= vs_base[0];
  73.     VV[30]->s.s_dbind = make_cons(base[0],Cnil);}
  74.     MF(VV[180],L1,start,size,data);
  75.     MF(VV[181],L2,start,size,data);
  76.     MF(VV[182],L3,start,size,data);
  77.     MF(VV[183],L4,start,size,data);
  78.     MF(VV[184],L5,start,size,data);
  79.     MF(VV[185],L6,start,size,data);
  80.     MF(VV[186],L7,start,size,data);
  81.     MF(VV[159],L8,start,size,data);
  82.     MF(VV[156],L9,start,size,data);
  83.     MF(VV[187],L10,start,size,data);
  84.     MF(VV[153],L11,start,size,data);
  85.     MF(VV[125],L12,start,size,data);
  86.     MF(VV[151],L13,start,size,data);
  87.     MF(VV[149],L14,start,size,data);
  88.     MF(VV[123],L15,start,size,data);
  89.     MF(VV[114],L16,start,size,data);
  90.     MF(VV[147],L17,start,size,data);
  91.     MF(VV[174],L18,start,size,data);
  92.     MF(VV[142],L19,start,size,data);
  93.     MF(VV[112],L20,start,size,data);
  94.     MF(VV[109],L21,start,size,data);
  95.     MF(VV[140],L22,start,size,data);
  96.     MF(VV[188],L23,start,size,data);
  97.     MF(VV[189],L24,start,size,data);
  98.     MF(VV[190],L25,start,size,data);
  99.     MF(VV[118],L26,start,size,data);
  100.     MF(VV[130],L27,start,size,data);
  101.     MF(VV[164],L28,start,size,data);
  102.     MF(VV[168],L29,start,size,data);
  103.     MF(VV[166],L30,start,size,data);
  104.     MF(VV[132],L31,start,size,data);
  105.     MF(VV[191],L32,start,size,data);
  106.     MF(VV[192],L33,start,size,data);
  107.     MF(VV[193],L34,start,size,data);
  108.     MF(VV[194],L35,start,size,data);
  109.     MF(VV[195],L36,start,size,data);
  110.     MF(VV[196],L37,start,size,data);
  111.     MF(VV[116],L38,start,size,data);
  112.     MF(VV[121],L39,start,size,data);
  113.     MF(VV[176],L40,start,size,data);
  114.     (void)(putprop(VV[108],VV[109],VV[68]));
  115.     (void)(putprop(VV[110],VV[109],VV[68]));
  116.     (void)(putprop(VV[111],VV[112],VV[68]));
  117.     (void)(putprop(VV[113],VV[114],VV[68]));
  118.     (void)(putprop(VV[115],VV[116],VV[68]));
  119.     (void)(putprop(VV[117],VV[118],VV[68]));
  120.     (void)(putprop(VV[119],VV[118],VV[68]));
  121.     (void)(putprop(VV[120],VV[121],VV[68]));
  122.     (void)(putprop(VV[122],VV[123],VV[68]));
  123.     (void)(putprop(VV[124],VV[125],VV[68]));
  124.     (void)(putprop(VV[126],VV[127],VV[68]));
  125.     (void)(putprop(VV[128],VV[127],VV[68]));
  126.     (void)(putprop(VV[129],VV[130],VV[68]));
  127.     (void)(putprop(VV[131],VV[132],VV[68]));
  128.     (void)(putprop(VV[133],VV[134],VV[68]));
  129.     (void)(putprop(VV[135],VV[130],VV[68]));
  130.     (void)(putprop(VV[136],VV[132],VV[68]));
  131.     (void)(putprop(VV[137],VV[138],VV[68]));
  132.     (void)(putprop(VV[139],VV[140],VV[68]));
  133.     (void)(putprop(VV[141],VV[142],VV[68]));
  134.     (void)(putprop(VV[143],VV[114],VV[68]));
  135.     (void)(putprop(VV[144],VV[123],VV[68]));
  136.     (void)(putprop(VV[145],VV[142],VV[68]));
  137.     (void)(putprop(VV[146],VV[147],VV[68]));
  138.     (void)(putprop(VV[148],VV[149],VV[68]));
  139.     (void)(putprop(VV[150],VV[151],VV[68]));
  140.     (void)(putprop(VV[152],VV[153],VV[68]));
  141.     (void)(putprop(VV[154],VV[153],VV[68]));
  142.     (void)(putprop(VV[155],VV[156],VV[68]));
  143.     (void)(putprop(VV[157],VV[156],VV[68]));
  144.     (void)(putprop(VV[158],VV[159],VV[68]));
  145.     (void)(putprop(VV[160],VV[159],VV[68]));
  146.     (void)(putprop(VV[161],VV[116],VV[68]));
  147.     (void)(putprop(VV[162],VV[147],VV[68]));
  148.     (void)(putprop(VV[163],VV[164],VV[68]));
  149.     (void)(putprop(VV[165],VV[166],VV[68]));
  150.     (void)(putprop(VV[167],VV[168],VV[68]));
  151.     (void)(putprop(VV[169],VV[164],VV[68]));
  152.     (void)(putprop(VV[170],VV[168],VV[68]));
  153.     (void)(putprop(VV[171],VV[149],VV[68]));
  154.     (void)(putprop(VV[172],VV[149],VV[68]));
  155.     (void)(putprop(VV[173],VV[174],VV[68]));
  156.     (void)(putprop(VV[175],VV[176],VV[68]));
  157.     MF(VV[127],L84,start,size,data);
  158.     MF(VV[134],L85,start,size,data);
  159.     MF(VV[138],L86,start,size,data);
  160.     vs_top=vs_base=base;
  161. }
  162. /*    function definition for TOP-LEVEL    */
  163.  
  164. static L1()
  165. {    register object *base=vs_base;
  166.     register object *sup=base+VM3;
  167.     vs_reserve(VM3);
  168.     bds_check;
  169.     check_arg(0);
  170.     vs_top=sup;
  171. TTL:;
  172.     bds_bind(VV[0],Cnil);
  173.     bds_bind(VV[1],Cnil);
  174.     bds_bind(VV[2],Cnil);
  175.     bds_bind(VV[3],Cnil);
  176.     bds_bind(VV[4],Cnil);
  177.     bds_bind(VV[5],Cnil);
  178.     bds_bind(VV[6],Cnil);
  179.     bds_bind(VV[7],Cnil);
  180.     bds_bind(VV[8],Cnil);
  181.     bds_bind(VV[9],Cnil);
  182.     setq(VV[11],Ct);
  183.     frs_push(FRS_CATCH,symbol_value(VV[12]));
  184.     if(nlj_active)
  185.     {nlj_active=FALSE;frs_pop();
  186.     vs_top=sup;
  187.     goto T65;}
  188.     else{
  189.     base[10]= VV[31];
  190.     vs_top=(vs_base=base+10)+1;
  191.     Lprobe_file();
  192.     vs_top=sup;
  193.     if((vs_base[0])==Cnil){
  194.     frs_pop();
  195.     goto T65;}
  196.     base[10]= VV[32];
  197.     vs_top=(vs_base=base+10)+1;
  198.     Lload();
  199.     vs_top=sup;
  200.     frs_pop();}
  201. T65:;
  202. T72:;
  203.     (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
  204.     (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
  205.     (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
  206.     base[10]= Ct;
  207.     base[11]= VV[33];
  208.     base[13]= symbol_value(VV[34]);
  209.     base[15]= VV[35];
  210.     vs_top=(vs_base=base+15)+1;
  211.     Lfind_package();
  212.     vs_top=sup;
  213.     base[14]= vs_base[0];
  214.     if(!(base[13]==base[14])){
  215.     goto T85;}
  216.     base[12]= VV[36];
  217.     goto T83;
  218. T85:;
  219.     base[13]= symbol_value(VV[34]);
  220.     vs_top=(vs_base=base+13)+1;
  221.     Lpackage_name();
  222.     vs_top=sup;
  223.     base[12]= vs_base[0];
  224. T83:;
  225.     vs_top=(vs_base=base+10)+3;
  226.     Lformat();
  227.     vs_top=sup;
  228.     vs_base=vs_top;
  229.     siLreset_stack_limits();
  230.     vs_top=sup;
  231.     frs_push(FRS_CATCH,symbol_value(VV[12]));
  232.     if(nlj_active)
  233.     {nlj_active=FALSE;frs_pop();
  234.     vs_top=sup;
  235.     if((vs_base[0])==Cnil){
  236.     goto T73;}
  237.     goto T92;}
  238.     else{
  239.     base[10]= symbol_value(VV[37]);
  240.     base[11]= Cnil;
  241.     base[12]= symbol_value(VV[10]);
  242.     (VV[3]->s.s_dbind)= simple_symlispcall(VV[197],base+10,3);
  243.     if(!((VV[3]->s.s_dbind)==symbol_value(VV[10]))){
  244.     goto T99;}
  245.     vs_base=vs_top;
  246.     Lby();
  247.     vs_top=sup;
  248. T99:;
  249.     base[11]= (VV[3]->s.s_dbind);
  250.     symlispcall(VV[101],base+11,1);
  251.     Llist();
  252.     vs_top=sup;
  253.     base[10]= vs_base[0];
  254.     (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
  255.     (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
  256.     (VV[7]->s.s_dbind)= base[10];
  257.     (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
  258.     (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
  259.     (VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
  260.     vs_base=vs_top;
  261.     Lfresh_line();
  262.     vs_top=sup;
  263.     base[11]= (VV[7]->s.s_dbind);
  264.     base[12]= car(base[11]);
  265. T121:;
  266.     if(!(endp(base[11]))){
  267.     goto T122;}
  268.     goto T118;
  269. T122:;
  270.     base[13]= base[12];
  271.     (void)simple_symlispcall(VV[198],base+13,1);
  272.     princ_char(10,Cnil);
  273.     base[11]= cdr(base[11]);
  274.     base[12]= car(base[11]);
  275.     goto T121;
  276. T118:;
  277.     frs_pop();
  278.     goto T73;}
  279. T92:;
  280.     princ_char(10,VV[38]);
  281.     vs_base=vs_top;
  282.     L26();
  283.     vs_top=sup;
  284. T73:;
  285.     goto T72;
  286. }
  287. /*    function definition for WARN    */
  288.  
  289. static L2()
  290. {    register object *base=vs_base;
  291.     register object *sup=base+VM4;
  292.     vs_reserve(VM4);
  293.     bds_check;
  294.     if(vs_top-vs_base<1) too_few_arguments();
  295.     vs_base=vs_base+1;
  296.     vs_top[0]=Cnil;
  297.     {object *p=vs_top;
  298.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  299.     vs_top=sup;
  300.     bds_bind(VV[39],VV[40]);
  301.     bds_bind(VV[41],VV[40]);
  302.     bds_bind(VV[42],VV[43]);
  303.     if((symbol_value(VV[26]))==Cnil){
  304.     goto T137;}
  305.     base[5]= base[0];
  306.     {object V1;
  307.     V1= base[1];
  308.      vs_top=base+6;
  309.      while(!endp(V1))
  310.      {vs_push(car(V1));V1=cdr(V1);}
  311.     vs_base=base+5;}
  312.     L4();
  313.     bds_unwind1;
  314.     bds_unwind1;
  315.     bds_unwind1;
  316.     return;
  317. T137:;
  318.     base[5]= symbol_value(VV[38]);
  319.     base[6]= VV[44];
  320.     vs_top=(vs_base=base+5)+2;
  321.     Lformat();
  322.     vs_top=sup;
  323.     bds_bind(VV[45],Ct);
  324.     base[6]= symbol_value(VV[38]);
  325.     base[7]= base[0];
  326.     {object V2;
  327.     V2= base[1];
  328.      vs_top=base+8;
  329.      while(!endp(V2))
  330.      {vs_push(car(V2));V2=cdr(V2);}
  331.     vs_base=base+6;}
  332.     Lformat();
  333.     vs_top=sup;
  334.     bds_unwind1;
  335.     base[5]= Cnil;
  336.     vs_top=(vs_base=base+5)+1;
  337.     bds_unwind1;
  338.     bds_unwind1;
  339.     bds_unwind1;
  340.     return;
  341. }
  342. /*    function definition for UNIVERSAL-ERROR-HANDLER    */
  343.  
  344. static L3()
  345. {    register object *base=vs_base;
  346.     register object *sup=base+VM5;
  347.     vs_reserve(VM5);
  348.     bds_check;
  349.     if(vs_top-vs_base<5) too_few_arguments();
  350.     vs_base=vs_base+5;
  351.     vs_top[0]=Cnil;
  352.     {object *p=vs_top;
  353.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  354.     vs_top=sup;
  355.     base[6]= Cnil;
  356.     bds_bind(VV[46],Cnil);
  357.     bds_bind(VV[39],VV[40]);
  358.     bds_bind(VV[41],VV[40]);
  359.     bds_bind(VV[42],VV[43]);
  360.     princ_char(10,VV[38]);
  361.     if((base[1])==Cnil){
  362.     goto T151;}
  363.     if((symbol_value(VV[23]))==Cnil){
  364.     goto T151;}
  365.     base[11]= symbol_value(VV[38]);
  366.     base[12]= VV[47];
  367.     vs_top=(vs_base=base+11)+2;
  368.     Lformat();
  369.     vs_top=sup;
  370.     bds_bind(VV[45],Ct);
  371.     base[12]= symbol_value(VV[38]);
  372.     base[13]= base[4];
  373.     {object V3;
  374.     V3= base[5];
  375.      vs_top=base+14;
  376.      while(!endp(V3))
  377.      {vs_push(car(V3));V3=cdr(V3);}
  378.     vs_base=base+12;}
  379.     Lformat();
  380.     vs_top=sup;
  381.     bds_unwind1;
  382.     princ_char(10,VV[38]);
  383.     base[11]= Cnil;
  384.     base[12]= base[4];
  385.     {object V4;
  386.     V4= base[5];
  387.      vs_top=base+13;
  388.      while(!endp(V4))
  389.      {vs_push(car(V4));V4=cdr(V4);}
  390.     vs_base=base+11;}
  391.     Lformat();
  392.     vs_top=sup;
  393.     base[6]= vs_base[0];
  394.     if((base[2])==Cnil){
  395.     goto T170;}
  396.     base[11]= symbol_value(VV[38]);
  397.     base[12]= VV[48];
  398.     base[13]= base[2];
  399.     vs_top=(vs_base=base+11)+3;
  400.     Lformat();
  401.     vs_top=sup;
  402.     goto T168;
  403. T170:;
  404.     base[11]= symbol_value(VV[38]);
  405.     base[12]= VV[49];
  406.     vs_top=(vs_base=base+11)+2;
  407.     Lformat();
  408.     vs_top=sup;
  409. T168:;
  410.     base[11]= symbol_value(VV[38]);
  411.     base[12]= VV[50];
  412.     vs_top=(vs_base=base+11)+2;
  413.     Lformat();
  414.     vs_top=sup;
  415.     bds_bind(VV[45],Ct);
  416.     base[12]= symbol_value(VV[38]);
  417.     base[13]= VV[51];
  418.     base[14]= base[3];
  419.     base[15]= base[5];
  420.     vs_top=(vs_base=base+12)+4;
  421.     Lformat();
  422.     vs_top=sup;
  423.     bds_unwind1;
  424.     bds_unwind1;
  425.     bds_unwind1;
  426.     bds_unwind1;
  427.     bds_unwind1;
  428.     goto T148;
  429. T151:;
  430.     base[11]= symbol_value(VV[38]);
  431.     base[12]= VV[52];
  432.     vs_top=(vs_base=base+11)+2;
  433.     Lformat();
  434.     vs_top=sup;
  435.     bds_bind(VV[45],Ct);
  436.     base[12]= symbol_value(VV[38]);
  437.     base[13]= base[4];
  438.     {object V5;
  439.     V5= base[5];
  440.      vs_top=base+14;
  441.      while(!endp(V5))
  442.      {vs_push(car(V5));V5=cdr(V5);}
  443.     vs_base=base+12;}
  444.     Lformat();
  445.     vs_top=sup;
  446.     bds_unwind1;
  447.     princ_char(10,VV[38]);
  448.     base[11]= Cnil;
  449.     base[12]= base[4];
  450.     {object V6;
  451.     V6= base[5];
  452.      vs_top=base+13;
  453.      while(!endp(V6))
  454.      {vs_push(car(V6));V6=cdr(V6);}
  455.     vs_base=base+11;}
  456.     Lformat();
  457.     vs_top=sup;
  458.     base[6]= vs_base[0];
  459.     if((base[2])==Cnil){
  460.     goto T198;}
  461.     base[11]= symbol_value(VV[38]);
  462.     base[12]= VV[53];
  463.     base[13]= base[2];
  464.     vs_top=(vs_base=base+11)+3;
  465.     Lformat();
  466.     vs_top=sup;
  467.     bds_unwind1;
  468.     bds_unwind1;
  469.     bds_unwind1;
  470.     bds_unwind1;
  471.     goto T148;
  472. T198:;
  473.     base[11]= symbol_value(VV[38]);
  474.     base[12]= VV[54];
  475.     vs_top=(vs_base=base+11)+2;
  476.     Lformat();
  477.     vs_top=sup;
  478.     bds_unwind1;
  479.     bds_unwind1;
  480.     bds_unwind1;
  481.     bds_unwind1;
  482. T148:;
  483.     base[7]= base[6];
  484.     vs_top=(vs_base=base+7)+1;
  485.     L6();
  486.     vs_top=sup;
  487.     if((base[1])!=Cnil){
  488.     goto T208;}
  489.     {frame_ptr fr;
  490.     base[7]= symbol_value(VV[12]);
  491.     fr=frs_sch_catch(base[7]);
  492.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[7]);
  493.     base[8]= symbol_value(VV[12]);
  494.     vs_top=(vs_base=base+8)+1;
  495.     unwind(fr,base[7]);}
  496. T208:;
  497.     base[7]= Cnil;
  498.     vs_top=(vs_base=base+7)+1;
  499.     return;
  500. }
  501. /*    function definition for BREAK    */
  502.  
  503. static L4()
  504. {    register object *base=vs_base;
  505.     register object *sup=base+VM6;
  506.     vs_reserve(VM6);
  507.     bds_check;
  508.     if(vs_base>=vs_top){vs_top=sup;goto T211;}
  509.     vs_base++;
  510.     vs_top[0]=Cnil;
  511.     {object *p=vs_top;
  512.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  513.     vs_top=sup;
  514.     goto T212;
  515. T211:;
  516.     base[0]= Cnil;
  517.     base[1]= Cnil;
  518. T212:;
  519.     base[2]= Cnil;
  520.     bds_bind(VV[46],Cnil);
  521.     bds_bind(VV[39],VV[40]);
  522.     bds_bind(VV[41],VV[40]);
  523.     bds_bind(VV[42],VV[43]);
  524.     princ_char(10,VV[38]);
  525.     if((base[0])==Cnil){
  526.     goto T217;}
  527.     base[7]= symbol_value(VV[38]);
  528.     base[8]= VV[55];
  529.     vs_top=(vs_base=base+7)+2;
  530.     Lformat();
  531.     vs_top=sup;
  532.     bds_bind(VV[45],Ct);
  533.     base[8]= symbol_value(VV[38]);
  534.     base[9]= base[0];
  535.     {object V7;
  536.     V7= base[1];
  537.      vs_top=base+10;
  538.      while(!endp(V7))
  539.      {vs_push(car(V7));V7=cdr(V7);}
  540.     vs_base=base+8;}
  541.     Lformat();
  542.     vs_top=sup;
  543.     bds_unwind1;
  544.     princ_char(10,VV[38]);
  545.     base[7]= Cnil;
  546.     base[8]= base[0];
  547.     {object V8;
  548.     V8= base[1];
  549.      vs_top=base+9;
  550.      while(!endp(V8))
  551.      {vs_push(car(V8));V8=cdr(V8);}
  552.     vs_base=base+7;}
  553.     Lformat();
  554.     vs_top=sup;
  555.     base[2]= vs_base[0];
  556.     bds_unwind1;
  557.     bds_unwind1;
  558.     bds_unwind1;
  559.     bds_unwind1;
  560.     goto T214;
  561. T217:;
  562.     base[7]= symbol_value(VV[38]);
  563.     base[8]= VV[56];
  564.     vs_top=(vs_base=base+7)+2;
  565.     Lformat();
  566.     vs_top=sup;
  567.     base[2]= VV[57];
  568.     bds_unwind1;
  569.     bds_unwind1;
  570.     bds_unwind1;
  571.     bds_unwind1;
  572. T214:;
  573.     bds_bind(VV[23],Ct);
  574.     base[4]= base[2];
  575.     vs_top=(vs_base=base+4)+1;
  576.     L6();
  577.     vs_top=sup;
  578.     bds_unwind1;
  579.     base[3]= Cnil;
  580.     vs_top=(vs_base=base+3)+1;
  581.     return;
  582. }
  583. /*    function definition for TERMINAL-INTERRUPT    */
  584.  
  585. static L5()
  586. {    register object *base=vs_base;
  587.     register object *sup=base+VM7;
  588.     vs_reserve(VM7);
  589.     bds_check;
  590.     check_arg(1);
  591.     vs_top=sup;
  592. TTL:;
  593.     bds_bind(VV[23],Ct);
  594.     if((base[0])==Cnil){
  595.     goto T238;}
  596.     base[2]= VV[58];
  597.     base[3]= VV[59];
  598.     vs_top=(vs_base=base+2)+2;
  599.     Lcerror();
  600.     bds_unwind1;
  601.     return;
  602. T238:;
  603.     base[2]= VV[60];
  604.     vs_top=(vs_base=base+2)+1;
  605.     Lerror();
  606.     bds_unwind1;
  607.     return;
  608. }
  609. /*    function definition for BREAK-LEVEL    */
  610.  
  611. static L6()
  612. {    register object *base=vs_base;
  613.     register object *sup=base+VM8;
  614.     vs_reserve(VM8);
  615.     bds_check;
  616.     check_arg(1);
  617.     bds_bind(VV[25],base[0]);
  618.     vs_top=sup;
  619. TTL:;
  620.     base[2]= make_cons(symbol_value(VV[14]),symbol_value(VV[12]));
  621.     bds_bind(VV[13],make_cons(base[2],symbol_value(VV[13])));
  622.     bds_bind(VV[12],make_cons(Cnil,Cnil));
  623.     bds_bind(VV[14],make_cons(Ct,symbol_value(VV[14])));
  624.     bds_bind(VV[17],one_plus(symbol_value(VV[18])));
  625.     base[6]= simple_symlispcall_no_event(VV[199],base+7,0);
  626.     bds_bind(VV[18],one_minus(base[6]));
  627.     bds_bind(VV[19],(VV[18]->s.s_dbind));
  628.     base[9]= symbol_value(VV[22]);
  629.     base[10]= (VV[17]->s.s_dbind);
  630.     base[8]= simple_symlispcall_no_event(VV[200],base+9,2);
  631.     if(base[8]==Cnil)goto T250;
  632.     bds_bind(VV[21],base[8]);
  633.     goto T249;
  634. T250:;
  635.     base[9]= simple_symlispcall_no_event(VV[201],base+10,0);
  636.     bds_bind(VV[21],one_plus(base[9]));
  637. T249:;
  638.     bds_bind(VV[22],simple_symlispcall_no_event(VV[201],base+9,0));
  639.     bds_bind(VV[15],Cnil);
  640.     base[10]= symbol_value(VV[23]);
  641.     bds_bind(VV[23],Cnil);
  642.     if(symbol_value(VV[27])!=Cnil){
  643.     bds_bind(VV[61],symbol_value(VV[27]));
  644.     goto T256;}
  645.     bds_bind(VV[61],symbol_value(VV[61]));
  646. T256:;
  647.     bds_bind(VV[62],Cnil);
  648.     bds_bind(VV[0],symbol_value(VV[0]));
  649.     bds_bind(VV[1],symbol_value(VV[1]));
  650.     bds_bind(VV[2],symbol_value(VV[2]));
  651.     bds_bind(VV[3],symbol_value(VV[3]));
  652.     bds_bind(VV[4],symbol_value(VV[4]));
  653.     bds_bind(VV[5],symbol_value(VV[5]));
  654.     bds_bind(VV[6],symbol_value(VV[6]));
  655.     bds_bind(VV[7],symbol_value(VV[7]));
  656.     bds_bind(VV[8],symbol_value(VV[8]));
  657.     bds_bind(VV[9],symbol_value(VV[9]));
  658.     if((base[10])!=Cnil){
  659.     goto T257;}
  660.     vs_base=vs_top;
  661.     L21();
  662.     vs_top=sup;
  663.     base[24]= make_fixnum(length(cdr((VV[14]->s.s_dbind))));
  664.     vs_top=(vs_base=base+24)+1;
  665.     L8();
  666.     vs_top=sup;
  667. T257:;
  668.     princ_char(10,VV[38]);
  669.     vs_base=vs_top;
  670.     L10();
  671.     vs_top=sup;
  672. T265:;
  673.     (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
  674.     (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
  675.     (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
  676.     base[24]= symbol_value(VV[63]);
  677.     base[25]= VV[64];
  678.     base[27]= symbol_value(VV[34]);
  679.     base[29]= VV[35];
  680.     vs_top=(vs_base=base+29)+1;
  681.     Lfind_package();
  682.     vs_top=sup;
  683.     base[28]= vs_base[0];
  684.     if(!(base[27]==base[28])){
  685.     goto T278;}
  686.     base[26]= VV[65];
  687.     goto T276;
  688. T278:;
  689.     base[27]= symbol_value(VV[34]);
  690.     vs_top=(vs_base=base+27)+1;
  691.     Lpackage_name();
  692.     vs_top=sup;
  693.     base[26]= vs_base[0];
  694. T276:;
  695.     base[27]= (VV[14]->s.s_dbind);
  696.     vs_top=(vs_base=base+24)+4;
  697.     Lformat();
  698.     vs_top=sup;
  699.     frs_push(FRS_CATCH,(VV[12]->s.s_dbind));
  700.     if(nlj_active)
  701.     {nlj_active=FALSE;frs_pop();
  702.     vs_top=sup;
  703.     if((vs_base[0])==Cnil){
  704.     goto T266;}
  705.     goto T285;}
  706.     else{
  707.     base[24]= symbol_value(VV[63]);
  708.     base[25]= Cnil;
  709.     base[26]= symbol_value(VV[10]);
  710.     (VV[3]->s.s_dbind)= simple_symlispcall(VV[197],base+24,3);
  711.     if(!((VV[3]->s.s_dbind)==symbol_value(VV[10]))){
  712.     goto T292;}
  713.     vs_base=vs_top;
  714.     Lby();
  715.     vs_top=sup;
  716. T292:;
  717.     if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
  718.     goto T299;}
  719.     if((VV[3]->s.s_dbind)==VV[66]){
  720.     goto T302;}
  721.     if(!((VV[3]->s.s_dbind)==VV[67])){
  722.     goto T301;}
  723. T302:;
  724.     frs_pop();
  725.     base[25]= Cnil;
  726.     vs_top=(vs_base=base+25)+1;
  727.     bds_unwind1;
  728.     bds_unwind1;
  729.     bds_unwind1;
  730.     bds_unwind1;
  731.     bds_unwind1;
  732.     bds_unwind1;
  733.     bds_unwind1;
  734.     bds_unwind1;
  735.     bds_unwind1;
  736.     bds_unwind1;
  737.     bds_unwind1;
  738.     bds_unwind1;
  739.     bds_unwind1;
  740.     bds_unwind1;
  741.     bds_unwind1;
  742.     bds_unwind1;
  743.     bds_unwind1;
  744.     bds_unwind1;
  745.     bds_unwind1;
  746.     bds_unwind1;
  747.     bds_unwind1;
  748.     bds_unwind1;
  749.     bds_unwind1;
  750.     return;
  751. T301:;
  752.     base[25]= (VV[3]->s.s_dbind);
  753.     base[26]= Cnil;
  754.     symlispcall(VV[186],base+25,2);
  755.     goto T297;
  756. T299:;
  757.     if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
  758.     goto T309;}
  759.     if(!((type_of(car((VV[3]->s.s_dbind)))==t_symbol&&(car((VV[3]->s.s_dbind)))->s.s_hpack==keyword_package))){
  760.     goto T309;}
  761.     if(car((VV[3]->s.s_dbind))==VV[66]){
  762.     goto T314;}
  763.     if(!(car((VV[3]->s.s_dbind))==VV[67])){
  764.     goto T313;}
  765. T314:;
  766.     frs_pop();
  767.     base[25]= Cnil;
  768.     vs_top=(vs_base=base+25)+1;
  769.     bds_unwind1;
  770.     bds_unwind1;
  771.     bds_unwind1;
  772.     bds_unwind1;
  773.     bds_unwind1;
  774.     bds_unwind1;
  775.     bds_unwind1;
  776.     bds_unwind1;
  777.     bds_unwind1;
  778.     bds_unwind1;
  779.     bds_unwind1;
  780.     bds_unwind1;
  781.     bds_unwind1;
  782.     bds_unwind1;
  783.     bds_unwind1;
  784.     bds_unwind1;
  785.     bds_unwind1;
  786.     bds_unwind1;
  787.     bds_unwind1;
  788.     bds_unwind1;
  789.     bds_unwind1;
  790.     bds_unwind1;
  791.     bds_unwind1;
  792.     return;
  793. T313:;
  794.     base[25]= car((VV[3]->s.s_dbind));
  795.     base[26]= cdr((VV[3]->s.s_dbind));
  796.     symlispcall(VV[186],base+25,2);
  797.     goto T297;
  798. T309:;
  799.     base[25]= (VV[3]->s.s_dbind);
  800.     base[26]= Cnil;
  801.     base[27]= Cnil;
  802.     base[28]= (VV[15]->s.s_dbind);
  803.     symlispcall(VV[102],base+25,4);
  804. T297:;
  805.     Llist();
  806.     vs_top=sup;
  807.     base[24]= vs_base[0];
  808.     (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
  809.     (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
  810.     (VV[7]->s.s_dbind)= base[24];
  811.     (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
  812.     (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
  813.     (VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
  814.     base[25]= symbol_value(VV[63]);
  815.     vs_top=(vs_base=base+25)+1;
  816.     Lfresh_line();
  817.     vs_top=sup;
  818.     base[25]= (VV[7]->s.s_dbind);
  819.     base[26]= car(base[25]);
  820. T340:;
  821.     if(!(endp(base[25]))){
  822.     goto T341;}
  823.     goto T295;
  824. T341:;
  825.     base[27]= base[26];
  826.     base[28]= symbol_value(VV[63]);
  827.     (void)simple_symlispcall(VV[198],base+27,2);
  828.     princ_char(10,VV[63]);
  829.     base[25]= cdr(base[25]);
  830.     base[26]= car(base[25]);
  831.     goto T340;
  832. T295:;
  833.     frs_pop();
  834.     goto T266;}
  835. T285:;
  836.     princ_char(10,VV[63]);
  837.     vs_base=vs_top;
  838.     L26();
  839.     vs_top=sup;
  840. T266:;
  841.     goto T265;
  842. }
  843. /*    function definition for BREAK-CALL    */
  844.  
  845. static L7()
  846. {    register object *base=vs_base;
  847.     register object *sup=base+VM9;
  848.     vs_reserve(VM9);
  849.     check_arg(2);
  850.     vs_top=sup;
  851. TTL:;
  852.     base[2]= get(base[0],VV[68],Cnil);
  853.     if((base[2])==Cnil){
  854.     goto T358;}
  855.     base[3]= make_cons(base[2],base[1]);
  856.     base[4]= Cnil;
  857.     base[5]= Cnil;
  858.     base[6]= symbol_value(VV[15]);
  859.     vs_top=(vs_base=base+3)+4;
  860.     Levalhook();
  861.     return;
  862. T358:;
  863.     base[3]= symbol_value(VV[63]);
  864.     base[4]= VV[69];
  865.     base[5]= base[0];
  866.     vs_top=(vs_base=base+3)+3;
  867.     Lformat();
  868.     return;
  869. }
  870. /*    function definition for BREAK-QUIT    */
  871.  
  872. static L8()
  873. {    register object *base=vs_base;
  874.     register object *sup=base+VM10;
  875.     vs_reserve(VM10);
  876.     if(vs_top-vs_base>1) too_many_arguments();
  877.     if(vs_base>=vs_top){vs_top=sup;goto T367;}
  878.     vs_top=sup;
  879.     goto T368;
  880. T367:;
  881.     base[0]= VV[20];
  882. T368:;
  883.     base[1]= make_fixnum(length(symbol_value(VV[14])));
  884.     if(!(number_compare(base[0],VV[20])>=0)){
  885.     goto T371;}
  886.     if(!(number_compare(base[0],base[1])<0)){
  887.     goto T371;}
  888.     base[4]= base[1];
  889.     base[5]= base[0];
  890.     base[6]= VV[16];
  891.     vs_top=(vs_base=base+4)+3;
  892.     Lminus();
  893.     vs_top=sup;
  894.     base[3]= vs_base[0];
  895.     base[2]= nth(fixint(base[3]),symbol_value(VV[13]));
  896.     {frame_ptr fr;
  897.     base[3]= cdr(base[2]);
  898.     fr=frs_sch_catch(base[3]);
  899.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[3]);
  900.     base[4]= cdr(base[2]);
  901.     vs_top=(vs_base=base+4)+1;
  902.     unwind(fr,base[3]);}
  903. T371:;
  904.     vs_base=vs_top;
  905.     L26();
  906.     return;
  907. }
  908. /*    function definition for BREAK-PREVIOUS    */
  909.  
  910. static L9()
  911. {    register object *base=vs_base;
  912.     register object *sup=base+VM11;
  913.     vs_reserve(VM11);
  914.     if(vs_top-vs_base>1) too_many_arguments();
  915.     if(vs_base>=vs_top){vs_top=sup;goto T383;}
  916.     vs_top=sup;
  917.     goto T384;
  918. T383:;
  919.     base[0]= VV[16];
  920. T384:;
  921.     base[1]= one_minus(symbol_value(VV[19]));
  922. T388:;
  923.     if(number_compare(base[1],symbol_value(VV[17]))<0){
  924.     goto T390;}
  925.     if(!(number_compare(base[0],VV[20])<=0)){
  926.     goto T389;}
  927. T390:;
  928.     vs_base=vs_top;
  929.     L34();
  930.     vs_top=sup;
  931.     vs_base=vs_top;
  932.     L26();
  933.     return;
  934. T389:;
  935.     base[2]= base[1];
  936.     vs_top=(vs_base=base+2)+1;
  937.     L32();
  938.     vs_top=sup;
  939.     if((vs_base[0])==Cnil){
  940.     goto T396;}
  941.     setq(VV[19],base[1]);
  942.     base[0]= one_minus(base[0]);
  943. T396:;
  944.     base[1]= one_minus(base[1]);
  945.     goto T388;
  946. }
  947. /*    function definition for SET-CURRENT    */
  948.  
  949. static L10()
  950. {    register object *base=vs_base;
  951.     register object *sup=base+VM12;
  952.     vs_reserve(VM12);
  953.     check_arg(0);
  954.     vs_top=sup;
  955. TTL:;
  956.     base[0]= symbol_value(VV[19]);
  957. T407:;
  958.     base[1]= base[0];
  959.     vs_top=(vs_base=base+1)+1;
  960.     L32();
  961.     vs_top=sup;
  962.     if((vs_base[0])!=Cnil){
  963.     goto T409;}
  964.     if(!(number_compare(base[0],symbol_value(VV[17]))<=0)){
  965.     goto T408;}
  966. T409:;
  967.     setq(VV[19],base[0]);
  968.     vs_base=vs_top;
  969.     L34();
  970.     vs_top=sup;
  971.     base[1]= symbol_value(VV[63]);
  972.     base[2]= VV[70];
  973.     base[4]= symbol_value(VV[19]);
  974.     vs_top=(vs_base=base+4)+1;
  975.     L33();
  976.     vs_top=sup;
  977.     base[3]= vs_base[0];
  978.     base[4]= cdr(symbol_value(VV[14]));
  979.     vs_top=(vs_base=base+1)+4;
  980.     Lformat();
  981.     return;
  982. T408:;
  983.     base[0]= one_minus(base[0]);
  984.     goto T407;
  985. }
  986. /*    function definition for BREAK-NEXT    */
  987.  
  988. static L11()
  989. {    register object *base=vs_base;
  990.     register object *sup=base+VM13;
  991.     vs_reserve(VM13);
  992.     if(vs_top-vs_base>1) too_many_arguments();
  993.     if(vs_base>=vs_top){vs_top=sup;goto T426;}
  994.     vs_top=sup;
  995.     goto T427;
  996. T426:;
  997.     base[0]= VV[16];
  998. T427:;
  999.     base[1]= symbol_value(VV[19]);
  1000. T430:;
  1001.     if(number_compare(base[1],symbol_value(VV[18]))>0){
  1002.     goto T432;}
  1003.     if(!(number_compare(base[0],VV[20])<0)){
  1004.     goto T431;}
  1005. T432:;
  1006.     vs_base=vs_top;
  1007.     L34();
  1008.     vs_top=sup;
  1009.     vs_base=vs_top;
  1010.     L26();
  1011.     return;
  1012. T431:;
  1013.     base[2]= base[1];
  1014.     vs_top=(vs_base=base+2)+1;
  1015.     L32();
  1016.     vs_top=sup;
  1017.     if((vs_base[0])==Cnil){
  1018.     goto T438;}
  1019.     setq(VV[19],base[1]);
  1020.     base[0]= one_minus(base[0]);
  1021. T438:;
  1022.     base[1]= one_plus(base[1]);
  1023.     goto T430;
  1024. }
  1025. /*    function definition for BREAK-GO    */
  1026.  
  1027. static L12()
  1028. {    register object *base=vs_base;
  1029.     register object *sup=base+VM14;
  1030.     vs_reserve(VM14);
  1031.     check_arg(1);
  1032.     vs_top=sup;
  1033. TTL:;
  1034.     setq(VV[19],(number_compare((number_compare(base[0],symbol_value(VV[17]))>=0?base[0]:symbol_value(VV[17])),symbol_value(VV[18]))<=0?(number_compare(base[0],symbol_value(VV[17]))>=0?base[0]:symbol_value(VV[17])):symbol_value(VV[18])));
  1035.     base[1]= symbol_value(VV[19]);
  1036.     vs_top=(vs_base=base+1)+1;
  1037.     L32();
  1038.     vs_top=sup;
  1039.     if((vs_base[0])==Cnil){
  1040.     goto T451;}
  1041.     vs_base=vs_top;
  1042.     L34();
  1043.     vs_top=sup;
  1044.     vs_base=vs_top;
  1045.     L26();
  1046.     return;
  1047. T451:;
  1048.     vs_base=vs_top;
  1049.     L9();
  1050.     return;
  1051. }
  1052. /*    function definition for BREAK-MESSAGE    */
  1053.  
  1054. static L13()
  1055. {    register object *base=vs_base;
  1056.     register object *sup=base+VM15;
  1057.     vs_reserve(VM15);
  1058.     check_arg(0);
  1059.     vs_top=sup;
  1060. TTL:;
  1061.     (void)(princ(symbol_value(VV[25]),symbol_value(VV[63])));
  1062.     princ_char(10,VV[63]);
  1063.     vs_base=vs_top=base+0;
  1064.     vs_base[0]=Cnil;
  1065.     return;
  1066. }
  1067. /*    function definition for BREAK-VARIABLES    */
  1068.  
  1069. static L14()
  1070. {    register object *base=vs_base;
  1071.     register object *sup=base+VM16;
  1072.     vs_reserve(VM16);
  1073.     check_arg(0);
  1074.     vs_top=sup;
  1075. TTL:;
  1076.     base[0]= symbol_value(VV[63]);
  1077.     base[1]= VV[71];
  1078.     {object V9;
  1079.     {object V10;
  1080.     object V11= car(symbol_value(VV[15]));
  1081.     if(endp(V11)){
  1082.     V9= Cnil;
  1083.     goto T459;}
  1084.     base[2]=V10=MMcons(Cnil,Cnil);
  1085. T460:;
  1086.     (V10->c.c_car)= car((V11->c.c_car));
  1087.     if(endp(V11=MMcdr(V11))){
  1088.     V9= base[2];
  1089.     goto T459;}
  1090.     V10=MMcdr(V10)=MMcons(Cnil,Cnil);
  1091.     goto T460;}
  1092. T459:;
  1093.      vs_top=base+2;
  1094.      while(!endp(V9))
  1095.      {vs_push(car(V9));V9=cdr(V9);}
  1096.     vs_base=base+0;}
  1097.     Lformat();
  1098.     return;
  1099. }
  1100. /*    function definition for BREAK-FUNCTIONS    */
  1101.  
  1102. static L15()
  1103. {    register object *base=vs_base;
  1104.     register object *sup=base+VM17;
  1105.     vs_reserve(VM17);
  1106.     check_arg(0);
  1107.     vs_top=sup;
  1108. TTL:;
  1109.     base[0]= symbol_value(VV[63]);
  1110.     base[1]= VV[72];
  1111.     {object V12;
  1112.     {object V13;
  1113.     object V14= cadr(symbol_value(VV[15]));
  1114.     if(endp(V14)){
  1115.     V12= Cnil;
  1116.     goto T464;}
  1117.     base[2]=V13=MMcons(Cnil,Cnil);
  1118. T465:;
  1119.     (V13->c.c_car)= car((V14->c.c_car));
  1120.     if(endp(V14=MMcdr(V14))){
  1121.     V12= base[2];
  1122.     goto T464;}
  1123.     V13=MMcdr(V13)=MMcons(Cnil,Cnil);
  1124.     goto T465;}
  1125. T464:;
  1126.      vs_top=base+2;
  1127.      while(!endp(V12))
  1128.      {vs_push(car(V12));V12=cdr(V12);}
  1129.     vs_base=base+0;}
  1130.     Lformat();
  1131.     return;
  1132. }
  1133. /*    function definition for BREAK-BLOCKS    */
  1134.  
  1135. static L16()
  1136. {    register object *base=vs_base;
  1137.     register object *sup=base+VM18;
  1138.     vs_reserve(VM18);
  1139.     check_arg(0);
  1140.     vs_top=sup;
  1141. TTL:;
  1142.     base[0]= symbol_value(VV[63]);
  1143.     base[1]= VV[73];
  1144.     {object V15;
  1145.     {object V16;
  1146.     object V17= caddr(symbol_value(VV[15]));
  1147.     if(endp(V17)){
  1148.     V15= Cnil;
  1149.     goto T469;}
  1150.     base[2]=V16=MMcons(Cnil,Cnil);
  1151. T470:;
  1152.     if(!(cadr((V17->c.c_car))==VV[74])){
  1153.     goto T473;}
  1154.     (V16->c.c_cdr)= make_cons(car((V17->c.c_car)),Cnil);
  1155.     goto T471;
  1156. T473:;
  1157.     (V16->c.c_cdr)= Cnil;
  1158. T471:;
  1159.     while(!endp(MMcdr(V16)))V16=MMcdr(V16);
  1160.     if(endp(V17=MMcdr(V17))){
  1161.     base[2]=base[2]->c.c_cdr;
  1162.     V15= base[2];
  1163.     goto T469;}
  1164.     goto T470;}
  1165. T469:;
  1166.      vs_top=base+2;
  1167.      while(!endp(V15))
  1168.      {vs_push(car(V15));V15=cdr(V15);}
  1169.     vs_base=base+0;}
  1170.     Lformat();
  1171.     return;
  1172. }
  1173. /*    function definition for BREAK-TAGS    */
  1174.  
  1175. static L17()
  1176. {    register object *base=vs_base;
  1177.     register object *sup=base+VM19;
  1178.     vs_reserve(VM19);
  1179.     check_arg(0);
  1180.     vs_top=sup;
  1181. TTL:;
  1182.     base[0]= symbol_value(VV[63]);
  1183.     base[1]= VV[75];
  1184.     {object V18;
  1185.     {object V19;
  1186.     object V20= caddr(symbol_value(VV[15]));
  1187.     if(endp(V20)){
  1188.     V18= Cnil;
  1189.     goto T477;}
  1190.     base[2]=V19=MMcons(Cnil,Cnil);
  1191. T478:;
  1192.     if(!(cadr((V20->c.c_car))==VV[76])){
  1193.     goto T481;}
  1194.     (V19->c.c_cdr)= make_cons(car((V20->c.c_car)),Cnil);
  1195.     goto T479;
  1196. T481:;
  1197.     (V19->c.c_cdr)= Cnil;
  1198. T479:;
  1199.     while(!endp(MMcdr(V19)))V19=MMcdr(V19);
  1200.     if(endp(V20=MMcdr(V20))){
  1201.     base[2]=base[2]->c.c_cdr;
  1202.     V18= base[2];
  1203.     goto T477;}
  1204.     goto T478;}
  1205. T477:;
  1206.      vs_top=base+2;
  1207.      while(!endp(V18))
  1208.      {vs_push(car(V18));V18=cdr(V18);}
  1209.     vs_base=base+0;}
  1210.     Lformat();
  1211.     return;
  1212. }
  1213. /*    function definition for BREAK-VS    */
  1214.  
  1215. static L18()
  1216. {    register object *base=vs_base;
  1217.     register object *sup=base+VM20;
  1218.     vs_reserve(VM20);
  1219.     if(vs_top-vs_base>2) too_many_arguments();
  1220.     if(vs_base>=vs_top){vs_top=sup;goto T483;}
  1221.     vs_base++;
  1222.     if(vs_base>=vs_top){vs_top=sup;goto T484;}
  1223.     vs_top=sup;
  1224.     goto T485;
  1225. T483:;
  1226.     base[2]= symbol_value(VV[17]);
  1227.     base[0]= simple_symlispcall_no_event(VV[202],base+2,1);
  1228. T484:;
  1229.     base[2]= symbol_value(VV[18]);
  1230.     base[1]= simple_symlispcall_no_event(VV[202],base+2,1);
  1231. T485:;
  1232.     base[3]= symbol_value(VV[17]);
  1233.     base[2]= simple_symlispcall_no_event(VV[202],base+3,1);
  1234.     base[0]= (number_compare(base[0],base[2])>=0?base[0]:base[2]);
  1235.     base[3]= one_plus(symbol_value(VV[18]));
  1236.     base[2]= simple_symlispcall_no_event(VV[202],base+3,1);
  1237.     base[3]= one_minus(base[2]);
  1238.     base[1]= (number_compare(base[1],base[3])<=0?base[1]:base[3]);
  1239.     base[2]= symbol_value(VV[17]);
  1240. T499:;
  1241.     if(number_compare(base[2],symbol_value(VV[18]))>=0){
  1242.     goto T501;}
  1243.     base[4]= base[2];
  1244.     base[3]= simple_symlispcall_no_event(VV[202],base+4,1);
  1245.     if(!(number_compare(base[3],base[0])>=0)){
  1246.     goto T500;}
  1247. T501:;
  1248.     base[3]= base[0];
  1249. T508:;
  1250.     if(!(number_compare(base[3],base[1])>0)){
  1251.     goto T509;}
  1252.     vs_base=vs_top=base+4;
  1253.     vs_base[0]=Cnil;
  1254.     return;
  1255. T509:;
  1256. T515:;
  1257.     base[5]= base[2];
  1258.     base[4]= simple_symlispcall_no_event(VV[202],base+5,1);
  1259.     if(!(number_compare(base[4],base[3])>0)){
  1260.     goto T516;}
  1261.     goto T513;
  1262. T516:;
  1263.     base[4]= base[2];
  1264.     vs_top=(vs_base=base+4)+1;
  1265.     L32();
  1266.     vs_top=sup;
  1267.     if((vs_base[0])==Cnil){
  1268.     goto T522;}
  1269.     base[4]= base[2];
  1270.     vs_top=(vs_base=base+4)+1;
  1271.     L23();
  1272.     vs_top=sup;
  1273. T522:;
  1274.     base[2]= number_plus(base[2],VV[16]);
  1275.     goto T515;
  1276. T513:;
  1277.     base[4]= symbol_value(VV[63]);
  1278.     base[5]= VV[77];
  1279.     base[6]= base[3];
  1280.     base[8]= base[3];
  1281.     base[7]= simple_symlispcall_no_event(VV[203],base+8,1);
  1282.     vs_top=(vs_base=base+4)+4;
  1283.     Lformat();
  1284.     vs_top=sup;
  1285.     base[3]= one_plus(base[3]);
  1286.     goto T508;
  1287. T500:;
  1288.     base[2]= one_plus(base[2]);
  1289.     goto T499;
  1290. }
  1291. /*    function definition for BREAK-LOCAL    */
  1292.  
  1293. static L19()
  1294. {    register object *base=vs_base;
  1295.     register object *sup=base+VM21;
  1296.     vs_reserve(VM21);
  1297.     if(vs_top-vs_base>1) too_many_arguments();
  1298.     if(vs_base>=vs_top){vs_top=sup;goto T544;}
  1299.     vs_top=sup;
  1300.     goto T545;
  1301. T544:;
  1302.     base[0]= VV[20];
  1303. T545:;
  1304.     base[3]= symbol_value(VV[19]);
  1305.     base[2]= simple_symlispcall_no_event(VV[202],base+3,1);
  1306.     base[1]= number_plus(base[2],base[0]);
  1307.     base[2]= base[1];
  1308.     base[3]= base[1];
  1309.     vs_top=(vs_base=base+2)+2;
  1310.     L18();
  1311.     return;
  1312. }
  1313. /*    function definition for BREAK-BDS    */
  1314.  
  1315. static L20()
  1316. {    register object *base=vs_base;
  1317.     register object *sup=base+VM22;
  1318.     vs_reserve(VM22);
  1319.     check_arg(1);
  1320.     vs_top=sup;
  1321. TTL:;
  1322.     base[1]= symbol_value(VV[21]);
  1323.     if(type_of(base[0])==t_cons){
  1324.     goto T552;}
  1325.     base[0]= make_cons(base[0],Cnil);
  1326. T552:;
  1327.     base[5]= one_minus(symbol_value(VV[21]));
  1328.     base[4]= simple_symlispcall_no_event(VV[204],base+5,1);
  1329.     base[2]= one_plus(base[4]);
  1330.     base[4]= one_plus(symbol_value(VV[22]));
  1331.     base[3]= simple_symlispcall_no_event(VV[204],base+4,1);
  1332. T562:;
  1333.     if(!(number_compare(base[2],base[3])>0)){
  1334.     goto T563;}
  1335.     vs_base=vs_top=base+4;
  1336.     vs_base[0]=Cnil;
  1337.     return;
  1338. T563:;
  1339.     base[5]= base[2];
  1340.     base[4]= simple_symlispcall_no_event(VV[205],base+5,1);
  1341.     {object x= base[4],V21= base[0];
  1342.     while(!endp(V21))
  1343.     if(eql(x,V21->c.c_car)){
  1344.     goto T569;
  1345.     }else V21=V21->c.c_cdr;
  1346.     goto T567;}
  1347. T569:;
  1348. T574:;
  1349.     if(number_compare(base[1],symbol_value(VV[22]))>0){
  1350.     goto T576;}
  1351.     base[5]= base[1];
  1352.     base[4]= simple_symlispcall_no_event(VV[204],base+5,1);
  1353.     if(!(number_compare(base[4],base[2])>0)){
  1354.     goto T575;}
  1355. T576:;
  1356.     goto T572;
  1357. T575:;
  1358.     base[4]= base[1];
  1359.     vs_top=(vs_base=base+4)+1;
  1360.     L24();
  1361.     vs_top=sup;
  1362.     base[1]= number_plus(base[1],VV[16]);
  1363.     goto T574;
  1364. T572:;
  1365.     base[4]= symbol_value(VV[63]);
  1366.     base[5]= VV[78];
  1367.     base[6]= base[2];
  1368.     base[8]= base[2];
  1369.     base[7]= simple_symlispcall_no_event(VV[205],base+8,1);
  1370.     base[9]= base[2];
  1371.     base[8]= simple_symlispcall_no_event(VV[206],base+9,1);
  1372.     vs_top=(vs_base=base+4)+5;
  1373.     Lformat();
  1374.     vs_top=sup;
  1375. T567:;
  1376.     base[2]= one_plus(base[2]);
  1377.     goto T562;
  1378. }
  1379. /*    function definition for SIMPLE-BACKTRACE    */
  1380.  
  1381. static L21()
  1382. {    register object *base=vs_base;
  1383.     register object *sup=base+VM23;
  1384.     vs_reserve(VM23);
  1385.     check_arg(0);
  1386.     vs_top=sup;
  1387. TTL:;
  1388.     princ_str("Backtrace: ",VV[63]);
  1389.     base[0]= symbol_value(VV[17]);
  1390.     base[1]= Cnil;
  1391. T601:;
  1392.     if(!(number_compare(base[0],symbol_value(VV[18]))>0)){
  1393.     goto T602;}
  1394.     princ_char(10,VV[63]);
  1395.     vs_base=vs_top=base+2;
  1396.     vs_base[0]=Cnil;
  1397.     return;
  1398. T602:;
  1399.     base[2]= base[0];
  1400.     vs_top=(vs_base=base+2)+1;
  1401.     L32();
  1402.     vs_top=sup;
  1403.     if((vs_base[0])==Cnil){
  1404.     goto T607;}
  1405.     if((base[1])==Cnil){
  1406.     goto T611;}
  1407.     princ_str(" > ",VV[63]);
  1408. T611:;
  1409.     base[3]= base[0];
  1410.     vs_top=(vs_base=base+3)+1;
  1411.     L33();
  1412.     vs_top=sup;
  1413.     base[2]= vs_base[0];
  1414.     base[3]= VV[79];
  1415.     base[4]= symbol_value(VV[63]);
  1416.     base[5]= VV[80];
  1417.     base[6]= Ct;
  1418.     base[7]= VV[81];
  1419.     if(!(number_compare(base[0],symbol_value(VV[19]))==0)){
  1420.     goto T623;}
  1421.     base[8]= VV[43];
  1422.     goto T621;
  1423. T623:;
  1424.     base[8]= VV[82];
  1425. T621:;
  1426.     vs_top=(vs_base=base+2)+7;
  1427.     Lwrite();
  1428.     vs_top=sup;
  1429. T607:;
  1430.     base[0]= one_plus(base[0]);
  1431.     base[1]= Ct;
  1432.     goto T601;
  1433. }
  1434. /*    function definition for BACKTRACE    */
  1435.  
  1436. static L22()
  1437. {    register object *base=vs_base;
  1438.     register object *sup=base+VM24;
  1439.     vs_reserve(VM24);
  1440.     if(vs_top-vs_base>2) too_many_arguments();
  1441.     if(vs_base>=vs_top){vs_top=sup;goto T630;}
  1442.     vs_base++;
  1443.     if(vs_base>=vs_top){vs_top=sup;goto T631;}
  1444.     vs_top=sup;
  1445.     goto T632;
  1446. T630:;
  1447.     base[0]= symbol_value(VV[17]);
  1448. T631:;
  1449.     base[1]= symbol_value(VV[18]);
  1450. T632:;
  1451.     base[0]= (number_compare(base[0],symbol_value(VV[17]))>=0?base[0]:symbol_value(VV[17]));
  1452.     base[1]= (number_compare(base[1],symbol_value(VV[18]))<=0?base[1]:symbol_value(VV[18]));
  1453.     base[2]= base[0];
  1454.     base[5]= symbol_value(VV[21]);
  1455.     base[6]= base[0];
  1456.     base[4]= simple_symlispcall_no_event(VV[200],base+5,2);
  1457.     if(base[4]==Cnil)goto T640;
  1458.     base[3]= base[4];
  1459.     goto T639;
  1460. T640:;
  1461.     base[3]= one_plus(symbol_value(VV[22]));
  1462. T639:;
  1463. T645:;
  1464.     if(!(number_compare(base[2],base[1])>0)){
  1465.     goto T646;}
  1466.     vs_base=vs_top=base+4;
  1467.     vs_base[0]=Cnil;
  1468.     return;
  1469. T646:;
  1470.     base[4]= base[2];
  1471.     vs_top=(vs_base=base+4)+1;
  1472.     L32();
  1473.     vs_top=sup;
  1474.     if((vs_base[0])==Cnil){
  1475.     goto T650;}
  1476.     base[4]= base[2];
  1477.     vs_top=(vs_base=base+4)+1;
  1478.     L23();
  1479.     vs_top=sup;
  1480. T650:;
  1481. T657:;
  1482.     if(number_compare(base[3],symbol_value(VV[22]))>0){
  1483.     goto T659;}
  1484.     base[5]= base[3];
  1485.     base[4]= simple_symlispcall_no_event(VV[207],base+5,1);
  1486.     if(!(number_compare(base[4],base[2])>0)){
  1487.     goto T658;}
  1488. T659:;
  1489.     goto T655;
  1490. T658:;
  1491.     base[4]= base[3];
  1492.     vs_top=(vs_base=base+4)+1;
  1493.     L24();
  1494.     vs_top=sup;
  1495.     base[3]= number_plus(base[3],VV[16]);
  1496.     goto T657;
  1497. T655:;
  1498.     base[2]= one_plus(base[2]);
  1499.     goto T645;
  1500. }
  1501. /*    function definition for PRINT-IHS    */
  1502.  
  1503. static L23()
  1504. {    register object *base=vs_base;
  1505.     register object *sup=base+VM25;
  1506.     vs_reserve(VM25);
  1507.     bds_check;
  1508.     check_arg(1);
  1509.     vs_top=sup;
  1510. TTL:;
  1511.     bds_bind(VV[39],VV[83]);
  1512.     bds_bind(VV[41],VV[40]);
  1513.     base[3]= Ct;
  1514.     base[4]= VV[84];
  1515.     base[5]= (number_compare(base[0],symbol_value(VV[19]))==0?Ct:Cnil);
  1516.     base[6]= base[0];
  1517.     base[9]= base[0];
  1518.     base[8]= simple_symlispcall_no_event(VV[208],base+9,1);
  1519.     if(type_of(base[8])==t_symbol){
  1520.     goto T682;}
  1521.     base[9]= base[8];
  1522.     vs_top=(vs_base=base+9)+1;
  1523.     Lcompiled_function_p();
  1524.     vs_top=sup;
  1525.     if((vs_base[0])==Cnil){
  1526.     goto T683;}
  1527. T682:;
  1528.     base[7]= base[8];
  1529.     goto T679;
  1530. T683:;
  1531.     if(!(type_of(base[8])==t_cons)){
  1532.     goto T689;}
  1533.     {object V22= car(base[8]);
  1534.     if((V22!= VV[85]))goto T691;
  1535.     base[7]= base[8];
  1536.     goto T679;
  1537. T691:;
  1538.     if((V22!= VV[209]))goto T692;
  1539.     base[7]= cdr(base[8]);
  1540.     goto T679;
  1541. T692:;
  1542.     if((V22!= VV[103]))goto T693;
  1543.     base[7]= make_cons(VV[85],cddddr(base[8]));
  1544.     goto T679;
  1545. T693:;
  1546.     if((V22!= VV[210]))goto T694;
  1547.     base[7]= cddddr(base[8]);
  1548.     goto T679;
  1549. T694:;
  1550.     base[7]= VV[86];
  1551.     goto T679;}
  1552. T689:;
  1553.     base[7]= VV[87];
  1554. T679:;
  1555.     base[9]= base[0];
  1556.     base[8]= simple_symlispcall_no_event(VV[202],base+9,1);
  1557.     vs_top=(vs_base=base+3)+6;
  1558.     Lformat();
  1559.     bds_unwind1;
  1560.     bds_unwind1;
  1561.     return;
  1562. }
  1563. /*    function definition for PRINT-FRS    */
  1564.  
  1565. static L24()
  1566. {    register object *base=vs_base;
  1567.     register object *sup=base+VM26;
  1568.     vs_reserve(VM26);
  1569.     check_arg(1);
  1570.     vs_top=sup;
  1571. TTL:;
  1572.     base[1]= symbol_value(VV[63]);
  1573.     base[2]= VV[88];
  1574.     base[3]= base[0];
  1575.     base[5]= base[0];
  1576.     vs_top=(vs_base=base+5)+1;
  1577.     L25();
  1578.     vs_top=sup;
  1579.     base[4]= vs_base[0];
  1580.     base[6]= base[0];
  1581.     base[5]= simple_symlispcall_no_event(VV[207],base+6,1);
  1582.     base[7]= base[0];
  1583.     base[6]= simple_symlispcall_no_event(VV[211],base+7,1);
  1584.     base[8]= base[0];
  1585.     base[7]= simple_symlispcall_no_event(VV[204],base+8,1);
  1586.     vs_top=(vs_base=base+1)+7;
  1587.     Lformat();
  1588.     return;
  1589. }
  1590. /*    function definition for FRS-KIND    */
  1591.  
  1592. static L25()
  1593. {    register object *base=vs_base;
  1594.     register object *sup=base+VM27;
  1595.     vs_reserve(VM27);
  1596.     check_arg(1);
  1597.     vs_top=sup;
  1598. TTL:;
  1599.     base[1]= Cnil;
  1600.     base[3]= base[0];
  1601.     base[2]= simple_symlispcall_no_event(VV[212],base+3,1);
  1602.     {object V23= base[2];
  1603.     if((V23!= VV[213]))goto T710;
  1604.     base[3]=symbol_function(VV[214]);
  1605.     base[5]= base[0];
  1606.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  1607.     if((simple_lispcall_no_event(base+3,1))==Cnil){
  1608.     goto T712;}
  1609.     base[5]= base[0];
  1610.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  1611.     base[8]= base[0];
  1612.     base[7]= simple_symlispcall_no_event(VV[211],base+8,1);
  1613.     base[6]= number_plus(base[7],VV[83]);
  1614.     base[5]= simple_symlispcall_no_event(VV[203],base+6,1);
  1615.     base[6]= VV[89];
  1616.     base[7]= symbol_function(VV[216]);
  1617.     base[8]= VV[90];
  1618.     base[9]= symbol_function(VV[217]);
  1619.     vs_top=(vs_base=base+4)+6;
  1620.     Lmember();
  1621.     vs_top=sup;
  1622.     base[1]= vs_base[0];
  1623.     if((base[1])!=Cnil){
  1624.     goto T718;}
  1625.     base[3]= Cnil;
  1626.     goto T717;
  1627. T718:;
  1628.     if(!(cadar(base[1])==VV[74])){
  1629.     goto T732;}
  1630.     base[3]= list(3,VV[74],caar(base[1]),VV[6]);
  1631.     goto T717;
  1632. T732:;
  1633.     base[7]=symbol_function(VV[218]);
  1634.     base[9]= base[0];
  1635.     base[8]= simple_symlispcall_no_event(VV[215],base+9,1);
  1636.     base[9]= base[1];
  1637.     base[10]= VV[92];
  1638.     base[11]= symbol_function(VV[217]);
  1639.     base[12]= VV[89];
  1640.     base[13]= symbol_function(VV[216]);
  1641.     base[6]= simple_lispcall_no_event(base+7,6);
  1642.     {object V24;
  1643.     object V25= base[6];
  1644.     if(endp(V25)){
  1645.     base[4]= Cnil;
  1646.     goto T734;}
  1647.     base[5]=V24=MMcons(Cnil,Cnil);
  1648. T735:;
  1649.     (V24->c.c_car)= car((V25->c.c_car));
  1650.     if(endp(V25=MMcdr(V25))){
  1651.     base[4]= base[5];
  1652.     goto T734;}
  1653.     V24=MMcdr(V24)=MMcons(Cnil,Cnil);
  1654.     goto T735;}
  1655. T734:;
  1656.     base[5]= reverse(base[4]);
  1657.     base[6]= append(base[5],VV[93]);
  1658.     base[3]= make_cons(VV[91],base[6]);
  1659. T717:;
  1660.     if(base[3]==Cnil)goto T716;
  1661.     vs_top=(vs_base=base+3)+1;
  1662.     return;
  1663. T716:;
  1664.     base[5]= base[0];
  1665.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  1666.     base[5]= list(2,VV[94],base[4]);
  1667.     vs_top=(vs_base=base+5)+1;
  1668.     return;
  1669. T712:;
  1670.     base[4]= base[0];
  1671.     base[3]= simple_symlispcall_no_event(VV[215],base+4,1);
  1672.     base[4]= list(2,VV[96],base[3]);
  1673.     base[5]= list(3,VV[95],base[4],VV[6]);
  1674.     vs_top=(vs_base=base+5)+1;
  1675.     return;
  1676. T710:;
  1677.     if((V23!= VV[219]))goto T749;
  1678.     base[3]= VV[97];
  1679.     vs_top=(vs_base=base+3)+1;
  1680.     return;
  1681. T749:;
  1682.     base[4]= base[0];
  1683.     base[3]= simple_symlispcall_no_event(VV[215],base+4,1);
  1684.     base[4]= list(2,VV[98],base[3]);
  1685.     vs_top=(vs_base=base+4)+1;
  1686.     return;}
  1687. }
  1688. /*    function definition for BREAK-CURRENT    */
  1689.  
  1690. static L26()
  1691. {    register object *base=vs_base;
  1692.     register object *sup=base+VM28;
  1693.     vs_reserve(VM28);
  1694.     check_arg(0);
  1695.     vs_top=sup;
  1696. TTL:;
  1697.     if((symbol_value(VV[14]))==Cnil){
  1698.     goto T754;}
  1699.     base[0]= symbol_value(VV[63]);
  1700.     base[1]= VV[99];
  1701.     base[3]= symbol_value(VV[19]);
  1702.     vs_top=(vs_base=base+3)+1;
  1703.     L33();
  1704.     vs_top=sup;
  1705.     base[2]= vs_base[0];
  1706.     vs_top=(vs_base=base+0)+3;
  1707.     Lformat();
  1708.     vs_top=sup;
  1709.     goto T752;
  1710. T754:;
  1711.     base[0]= symbol_value(VV[63]);
  1712.     base[1]= VV[100];
  1713.     vs_top=(vs_base=base+0)+2;
  1714.     Lformat();
  1715.     vs_top=sup;
  1716. T752:;
  1717.     vs_base=vs_top=base+0;
  1718.     vs_base[0]=Cnil;
  1719.     return;
  1720. }
  1721. /*    function definition for BREAK-HIDE    */
  1722.  
  1723. static L27()
  1724. {    register object *base=vs_base;
  1725.     register object *sup=base+VM29;
  1726.     vs_reserve(VM29);
  1727.     check_arg(1);
  1728.     vs_top=sup;
  1729. TTL:;
  1730.     {object x= base[0],V26= symbol_value(VV[28]);
  1731.     while(!endp(V26))
  1732.     if(eql(x,V26->c.c_car)){
  1733.     goto T762;
  1734.     }else V26=V26->c.c_cdr;}
  1735.     setq(VV[28],make_cons(base[0],symbol_value(VV[28])));
  1736.     base[1]= symbol_value(VV[19]);
  1737.     vs_top=(vs_base=base+1)+1;
  1738.     L32();
  1739.     vs_top=sup;
  1740.     if((vs_base[0])!=Cnil){
  1741.     goto T762;}
  1742.     vs_base=vs_top;
  1743.     L9();
  1744.     vs_top=sup;
  1745. T762:;
  1746.     vs_base=vs_top=base+1;
  1747.     vs_base[0]=Cnil;
  1748.     return;
  1749. }
  1750. /*    function definition for BREAK-UNHIDE    */
  1751.  
  1752. static L28()
  1753. {    register object *base=vs_base;
  1754.     register object *sup=base+VM30;
  1755.     vs_reserve(VM30);
  1756.     check_arg(1);
  1757.     vs_top=sup;
  1758. TTL:;
  1759.     base[1]= base[0];
  1760.     base[2]= symbol_value(VV[28]);
  1761.     vs_top=(vs_base=base+1)+2;
  1762.     L36();
  1763.     vs_top=sup;
  1764.     setq(VV[28],vs_base[0]);
  1765.     vs_base=vs_top=base+1;
  1766.     vs_base[0]=Cnil;
  1767.     return;
  1768. }
  1769. /*    function definition for BREAK-UNHIDE-PACKAGE    */
  1770.  
  1771. static L29()
  1772. {    register object *base=vs_base;
  1773.     register object *sup=base+VM31;
  1774.     vs_reserve(VM31);
  1775.     check_arg(1);
  1776.     vs_top=sup;
  1777. TTL:;
  1778.     base[1]= base[0];
  1779.     vs_top=(vs_base=base+1)+1;
  1780.     Lfind_package();
  1781.     vs_top=sup;
  1782.     base[0]= vs_base[0];
  1783.     base[1]= base[0];
  1784.     base[2]= symbol_value(VV[30]);
  1785.     vs_top=(vs_base=base+1)+2;
  1786.     L36();
  1787.     vs_top=sup;
  1788.     setq(VV[30],vs_base[0]);
  1789.     vs_base=vs_top=base+1;
  1790.     vs_base[0]=Cnil;
  1791.     return;
  1792. }
  1793. /*    function definition for BREAK-UNHIDE-ALL    */
  1794.  
  1795. static L30()
  1796. {    register object *base=vs_base;
  1797.     register object *sup=base+VM32;
  1798.     vs_reserve(VM32);
  1799.     check_arg(0);
  1800.     vs_top=sup;
  1801. TTL:;
  1802.     setq(VV[28],Cnil);
  1803.     setq(VV[30],Cnil);
  1804.     vs_base=vs_top=base+0;
  1805.     vs_base[0]=Cnil;
  1806.     return;
  1807. }
  1808. /*    function definition for BREAK-HIDE-PACKAGE    */
  1809.  
  1810. static L31()
  1811. {    register object *base=vs_base;
  1812.     register object *sup=base+VM33;
  1813.     vs_reserve(VM33);
  1814.     check_arg(1);
  1815.     vs_top=sup;
  1816. TTL:;
  1817.     base[1]= base[0];
  1818.     vs_top=(vs_base=base+1)+1;
  1819.     Lfind_package();
  1820.     vs_top=sup;
  1821.     base[0]= vs_base[0];
  1822.     {object x= base[0],V27= symbol_value(VV[30]);
  1823.     while(!endp(V27))
  1824.     if(eql(x,V27->c.c_car)){
  1825.     goto T788;
  1826.     }else V27=V27->c.c_cdr;}
  1827.     setq(VV[30],make_cons(base[0],symbol_value(VV[30])));
  1828.     base[1]= symbol_value(VV[19]);
  1829.     vs_top=(vs_base=base+1)+1;
  1830.     L32();
  1831.     vs_top=sup;
  1832.     if((vs_base[0])!=Cnil){
  1833.     goto T788;}
  1834.     vs_base=vs_top;
  1835.     L9();
  1836.     vs_top=sup;
  1837. T788:;
  1838.     vs_base=vs_top=base+1;
  1839.     vs_base[0]=Cnil;
  1840.     return;
  1841. }
  1842. /*    function definition for IHS-VISIBLE    */
  1843.  
  1844. static L32()
  1845. {    register object *base=vs_base;
  1846.     register object *sup=base+VM34;
  1847.     vs_reserve(VM34);
  1848.     check_arg(1);
  1849.     vs_top=sup;
  1850. TTL:;
  1851.     base[2]= base[0];
  1852.     vs_top=(vs_base=base+2)+1;
  1853.     L33();
  1854.     vs_top=sup;
  1855.     base[1]= vs_base[0];
  1856.     if(!(base[1]==VV[101])){
  1857.     goto T798;}
  1858.     base[3]= Ct;
  1859.     vs_top=(vs_base=base+3)+1;
  1860.     return;
  1861. T798:;
  1862.     if(!(base[1]==VV[102])){
  1863.     goto T800;}
  1864.     base[3]= Ct;
  1865.     vs_top=(vs_base=base+3)+1;
  1866.     return;
  1867. T800:;
  1868.     base[5]= base[1];
  1869.     vs_top=(vs_base=base+5)+1;
  1870.     Lsymbol_package();
  1871.     vs_top=sup;
  1872.     base[4]= vs_base[0];
  1873.     {object x= base[4],V28= symbol_value(VV[30]);
  1874.     while(!endp(V28))
  1875.     if(eql(x,V28->c.c_car)){
  1876.     base[3]= V28;
  1877.     goto T804;
  1878.     }else V28=V28->c.c_cdr;
  1879.     base[3]= Cnil;}
  1880. T804:;
  1881.     if((base[3])==Cnil){
  1882.     goto T802;}
  1883.     base[3]= Cnil;
  1884.     vs_top=(vs_base=base+3)+1;
  1885.     return;
  1886. T802:;
  1887.     if(((base[1]==Cnil?Ct:Cnil))==Cnil){
  1888.     goto T807;}
  1889.     base[3]= Cnil;
  1890.     vs_top=(vs_base=base+3)+1;
  1891.     return;
  1892. T807:;
  1893.     {object x= base[1],V29= symbol_value(VV[28]);
  1894.     while(!endp(V29))
  1895.     if(eql(x,V29->c.c_car)){
  1896.     base[3]= V29;
  1897.     goto T809;
  1898.     }else V29=V29->c.c_cdr;
  1899.     base[3]= Cnil;}
  1900. T809:;
  1901.     base[4]= ((base[3])==Cnil?Ct:Cnil);
  1902.     vs_top=(vs_base=base+4)+1;
  1903.     return;
  1904. }
  1905. /*    function definition for IHS-FNAME    */
  1906.  
  1907. static L33()
  1908. {    register object *base=vs_base;
  1909.     register object *sup=base+VM35;
  1910.     vs_reserve(VM35);
  1911.     check_arg(1);
  1912.     vs_top=sup;
  1913. TTL:;
  1914.     base[2]= base[0];
  1915.     base[1]= simple_symlispcall_no_event(VV[208],base+2,1);
  1916.     if(!(type_of(base[1])==t_symbol)){
  1917.     goto T813;}
  1918.     vs_top=(vs_base=base+1)+1;
  1919.     return;
  1920. T813:;
  1921.     if(!(type_of(base[1])==t_cons)){
  1922.     goto T816;}
  1923.     {object V30= car(base[1]);
  1924.     if((V30!= VV[85]))goto T818;
  1925.     base[2]= VV[85];
  1926.     vs_top=(vs_base=base+2)+1;
  1927.     return;
  1928. T818:;
  1929.     if((V30!= VV[209]))goto T819;
  1930.     base[2]= cadr(base[1]);
  1931.     vs_top=(vs_base=base+2)+1;
  1932.     return;
  1933. T819:;
  1934.     if((V30!= VV[210]))goto T820;
  1935.     base[2]= car(cddddr(base[1]));
  1936.     vs_top=(vs_base=base+2)+1;
  1937.     return;
  1938. T820:;
  1939.     if((V30!= VV[103]))goto T821;
  1940.     base[2]= VV[103];
  1941.     vs_top=(vs_base=base+2)+1;
  1942.     return;
  1943. T821:;
  1944.     base[2]= VV[87];
  1945.     vs_top=(vs_base=base+2)+1;
  1946.     return;}
  1947. T816:;
  1948.     base[2]= base[1];
  1949.     vs_top=(vs_base=base+2)+1;
  1950.     Lcompiled_function_p();
  1951.     vs_top=sup;
  1952.     if((vs_base[0])==Cnil){
  1953.     goto T823;}
  1954.     base[2]= base[1];
  1955.     symlispcall_no_event(VV[220],base+2,1);
  1956.     return;
  1957. T823:;
  1958.     base[2]= VV[87];
  1959.     vs_top=(vs_base=base+2)+1;
  1960.     return;
  1961. }
  1962. /*    function definition for SET-ENV    */
  1963.  
  1964. static L34()
  1965. {    register object *base=vs_base;
  1966.     register object *sup=base+VM36;
  1967.     vs_reserve(VM36);
  1968.     check_arg(0);
  1969.     vs_top=sup;
  1970. TTL:;
  1971.     base[0]= symbol_value(VV[19]);
  1972.     vs_top=(vs_base=base+0)+1;
  1973.     L35();
  1974.     vs_top=sup;
  1975.     if((vs_base[0])==Cnil){
  1976.     goto T829;}
  1977.     setq(VV[15],Cnil);
  1978.     goto T827;
  1979. T829:;
  1980.     base[1]= symbol_value(VV[19]);
  1981.     base[0]= simple_symlispcall_no_event(VV[202],base+1,1);
  1982.     base[2]= base[0];
  1983.     base[1]= simple_symlispcall_no_event(VV[203],base+2,1);
  1984.     base[3]= one_plus(base[0]);
  1985.     base[2]= simple_symlispcall_no_event(VV[203],base+3,1);
  1986.     base[4]= number_plus(base[0],VV[83]);
  1987.     base[3]= simple_symlispcall_no_event(VV[203],base+4,1);
  1988.     setq(VV[15],list(3,base[1],base[2],base[3]));
  1989. T827:;
  1990.     base[0]= symbol_value(VV[15]);
  1991.     vs_top=(vs_base=base+0)+1;
  1992.     return;
  1993. }
  1994. /*    function definition for IHS-COMPILED-P    */
  1995.  
  1996. static L35()
  1997. {    register object *base=vs_base;
  1998.     register object *sup=base+VM37;
  1999.     vs_reserve(VM37);
  2000.     check_arg(1);
  2001.     vs_top=sup;
  2002. TTL:;
  2003.     base[2]= base[0];
  2004.     base[1]= simple_symlispcall_no_event(VV[208],base+2,1);
  2005.     if(type_of(base[1])==t_symbol){
  2006.     goto T844;}
  2007.     base[2]= Cnil;
  2008.     goto T843;
  2009. T844:;
  2010.     base[4]= base[1];
  2011.     vs_top=(vs_base=base+4)+1;
  2012.     Lspecial_form_p();
  2013.     vs_top=sup;
  2014.     base[3]= vs_base[0];
  2015.     base[2]= ((base[3])==Cnil?Ct:Cnil);
  2016. T843:;
  2017.     if(base[2]==Cnil)goto T842;
  2018.     vs_top=(vs_base=base+2)+1;
  2019.     return;
  2020. T842:;
  2021.     base[3]= base[1];
  2022.     vs_top=(vs_base=base+3)+1;
  2023.     Lcompiled_function_p();
  2024.     return;
  2025. }
  2026. /*    function definition for LIST-DELQ    */
  2027.  
  2028. static L36()
  2029. {    register object *base=vs_base;
  2030.     register object *sup=base+VM38;
  2031.     vs_reserve(VM38);
  2032.     check_arg(2);
  2033.     vs_top=sup;
  2034. TTL:;
  2035.     if((base[1])!=Cnil){
  2036.     goto T850;}
  2037.     base[2]= Cnil;
  2038.     vs_top=(vs_base=base+2)+1;
  2039.     return;
  2040. T850:;
  2041.     if(!(base[0]==car(base[1]))){
  2042.     goto T853;}
  2043.     base[2]= cdr(base[1]);
  2044.     vs_top=(vs_base=base+2)+1;
  2045.     return;
  2046. T853:;
  2047.     base[3]= base[0];
  2048.     base[4]= cdr(base[1]);
  2049.     vs_top=(vs_base=base+3)+2;
  2050.     L36();
  2051.     vs_top=sup;
  2052.     base[2]= vs_base[0];
  2053.     if(type_of(base[1])!=t_cons)FEwrong_type_argument(Scons,base[1]);
  2054.     (base[1])->c.c_cdr = base[2];
  2055.     vs_top=(vs_base=base+1)+1;
  2056.     return;
  2057. }
  2058. /*    function definition for SUPER-GO    */
  2059.  
  2060. static L37()
  2061. {    register object *base=vs_base;
  2062.     register object *sup=base+VM39;
  2063.     vs_reserve(VM39);
  2064.     check_arg(2);
  2065.     vs_top=sup;
  2066. TTL:;
  2067.     base[2]= Cnil;
  2068.     if(!(number_compare(base[0],symbol_value(VV[21]))>=0)){
  2069.     goto T858;}
  2070.     if(!(number_compare(base[0],symbol_value(VV[22]))<=0)){
  2071.     goto T858;}
  2072.     base[3]=symbol_function(VV[214]);
  2073.     base[5]= base[0];
  2074.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  2075.     if((simple_lispcall_no_event(base+3,1))==Cnil){
  2076.     goto T858;}
  2077.     base[4]= base[0];
  2078.     base[3]= simple_symlispcall_no_event(VV[215],base+4,1);
  2079.     base[7]= base[0];
  2080.     base[6]= simple_symlispcall_no_event(VV[211],base+7,1);
  2081.     base[5]= number_plus(base[6],VV[83]);
  2082.     base[4]= simple_symlispcall_no_event(VV[203],base+5,1);
  2083.     base[5]= VV[89];
  2084.     base[6]= symbol_function(VV[216]);
  2085.     base[7]= VV[90];
  2086.     base[8]= symbol_function(VV[217]);
  2087.     vs_top=(vs_base=base+3)+6;
  2088.     Lmember();
  2089.     vs_top=sup;
  2090.     base[2]= vs_base[0];
  2091.     if((base[2])==Cnil){
  2092.     goto T868;}
  2093.     if(!(cadar(base[2])==VV[76])){
  2094.     goto T858;}
  2095.     base[6]=symbol_function(VV[218]);
  2096.     base[8]= base[0];
  2097.     base[7]= simple_symlispcall_no_event(VV[215],base+8,1);
  2098.     base[8]= base[2];
  2099.     base[9]= VV[92];
  2100.     base[10]= symbol_function(VV[217]);
  2101.     base[11]= VV[89];
  2102.     base[12]= symbol_function(VV[216]);
  2103.     base[5]= simple_lispcall_no_event(base+6,6);
  2104.     {object V32;
  2105.     object V33= base[5];
  2106.     if(endp(V33)){
  2107.     base[3]= Cnil;
  2108.     goto T885;}
  2109.     base[4]=V32=MMcons(Cnil,Cnil);
  2110. T886:;
  2111.     (V32->c.c_car)= car((V33->c.c_car));
  2112.     if(endp(V33=MMcdr(V33))){
  2113.     base[3]= base[4];
  2114.     goto T885;}
  2115.     V32=MMcdr(V32)=MMcons(Cnil,Cnil);
  2116.     goto T886;}
  2117. T885:;
  2118.     {object x= base[1],V31= base[3];
  2119.     while(!endp(V31))
  2120.     if(eql(x,V31->c.c_car)){
  2121.     goto T884;
  2122.     }else V31=V31->c.c_cdr;
  2123.     goto T858;}
  2124. T884:;
  2125.     base[3]=symbol_function(VV[221]);
  2126.     base[5]= base[0];
  2127.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  2128.     base[5]= base[1];
  2129.     base[6]= Ct;
  2130.     (void)simple_lispcall_no_event(base+3,3);
  2131.     goto T858;
  2132. T868:;
  2133.     base[3]=symbol_function(VV[221]);
  2134.     base[5]= base[0];
  2135.     base[4]= simple_symlispcall_no_event(VV[215],base+5,1);
  2136.     base[5]= base[1];
  2137.     base[6]= Cnil;
  2138.     (void)simple_lispcall_no_event(base+3,3);
  2139. T858:;
  2140.     base[3]= symbol_value(VV[63]);
  2141.     base[4]= VV[104];
  2142.     base[5]= base[0];
  2143.     base[6]= base[1];
  2144.     vs_top=(vs_base=base+3)+4;
  2145.     Lformat();
  2146.     return;
  2147. }
  2148. /*    function definition for BREAK-BACKWARD-SEARCH-STACK    */
  2149.  
  2150. static L38()
  2151. {    register object *base=vs_base;
  2152.     register object *sup=base+VM40;
  2153.     vs_reserve(VM40);
  2154.     check_arg(1);
  2155.     vs_top=sup;
  2156. TTL:;
  2157.     base[1]= Cnil;
  2158.     base[1]= coerce_to_string(base[0]);
  2159.     base[2]= one_minus(symbol_value(VV[19]));
  2160.     base[4]= base[2];
  2161.     vs_top=(vs_base=base+4)+1;
  2162.     L33();
  2163.     vs_top=sup;
  2164.     base[3]= vs_base[0];
  2165. T914:;
  2166.     if(!(number_compare(base[2],symbol_value(VV[17]))<0)){
  2167.     goto T915;}
  2168.     base[4]= symbol_value(VV[63]);
  2169.     base[5]= VV[105];
  2170.     base[6]= base[1];
  2171.     vs_top=(vs_base=base+4)+3;
  2172.     Lformat();
  2173.     return;
  2174. T915:;
  2175.     base[4]= base[2];
  2176.     vs_top=(vs_base=base+4)+1;
  2177.     L32();
  2178.     vs_top=sup;
  2179.     if((vs_base[0])==Cnil){
  2180.     goto T922;}
  2181.     base[4]=symbol_function(VV[222]);
  2182.     base[5]= base[1];
  2183.     base[7]= base[3];
  2184.     vs_top=(vs_base=base+7)+1;
  2185.     Lsymbol_name();
  2186.     vs_top=sup;
  2187.     base[6]= vs_base[0];
  2188.     base[7]= VV[90];
  2189.     base[8]= symbol_function(VV[223]);
  2190.     if((simple_lispcall_no_event(base+4,4))==Cnil){
  2191.     goto T922;}
  2192.     base[4]= base[2];
  2193.     vs_top=(vs_base=base+4)+1;
  2194.     L12();
  2195.     vs_top=sup;
  2196.     base[4]= Cnil;
  2197.     vs_top=(vs_base=base+4)+1;
  2198.     return;
  2199. T922:;
  2200.     base[2]= one_minus(base[2]);
  2201.     base[4]= base[2];
  2202.     vs_top=(vs_base=base+4)+1;
  2203.     L33();
  2204.     vs_top=sup;
  2205.     base[3]= vs_base[0];
  2206.     goto T914;
  2207. }
  2208. /*    function definition for BREAK-FORWARD-SEARCH-STACK    */
  2209.  
  2210. static L39()
  2211. {    register object *base=vs_base;
  2212.     register object *sup=base+VM41;
  2213.     vs_reserve(VM41);
  2214.     check_arg(1);
  2215.     vs_top=sup;
  2216. TTL:;
  2217.     base[1]= Cnil;
  2218.     base[1]= coerce_to_string(base[0]);
  2219.     base[2]= one_plus(symbol_value(VV[19]));
  2220.     base[4]= base[2];
  2221.     vs_top=(vs_base=base+4)+1;
  2222.     L33();
  2223.     vs_top=sup;
  2224.     base[3]= vs_base[0];
  2225. T947:;
  2226.     if(!(number_compare(base[2],symbol_value(VV[18]))>0)){
  2227.     goto T948;}
  2228.     base[4]= symbol_value(VV[63]);
  2229.     base[5]= VV[106];
  2230.     base[6]= base[1];
  2231.     vs_top=(vs_base=base+4)+3;
  2232.     Lformat();
  2233.     return;
  2234. T948:;
  2235.     base[4]= base[2];
  2236.     vs_top=(vs_base=base+4)+1;
  2237.     L32();
  2238.     vs_top=sup;
  2239.     if((vs_base[0])==Cnil){
  2240.     goto T955;}
  2241.     base[4]=symbol_function(VV[222]);
  2242.     base[5]= base[1];
  2243.     base[7]= base[3];
  2244.     vs_top=(vs_base=base+7)+1;
  2245.     Lsymbol_name();
  2246.     vs_top=sup;
  2247.     base[6]= vs_base[0];
  2248.     base[7]= VV[90];
  2249.     base[8]= symbol_function(VV[223]);
  2250.     if((simple_lispcall_no_event(base+4,4))==Cnil){
  2251.     goto T955;}
  2252.     base[4]= base[2];
  2253.     vs_top=(vs_base=base+4)+1;
  2254.     L12();
  2255.     vs_top=sup;
  2256.     base[4]= Cnil;
  2257.     vs_top=(vs_base=base+4)+1;
  2258.     return;
  2259. T955:;
  2260.     base[2]= one_plus(base[2]);
  2261.     base[4]= base[2];
  2262.     vs_top=(vs_base=base+4)+1;
  2263.     L33();
  2264.     vs_top=sup;
  2265.     base[3]= vs_base[0];
  2266.     goto T947;
  2267. }
  2268. /*    function definition for BREAK-VARIABLES-VALUES    */
  2269.  
  2270. static L40()
  2271. {    register object *base=vs_base;
  2272.     register object *sup=base+VM42;
  2273.     vs_reserve(VM42);
  2274.     check_arg(0);
  2275.     vs_top=sup;
  2276. TTL:;
  2277.     base[0]= car(symbol_value(VV[15]));
  2278.     base[1]= car(base[0]);
  2279. T977:;
  2280.     if(!(endp(base[0]))){
  2281.     goto T978;}
  2282.     base[2]= Cnil;
  2283.     vs_top=(vs_base=base+2)+1;
  2284.     return;
  2285. T978:;
  2286.     base[2]= symbol_value(VV[63]);
  2287.     base[3]= VV[107];
  2288.     base[4]= car(base[1]);
  2289.     base[5]= cadr(base[1]);
  2290.     vs_top=(vs_base=base+2)+4;
  2291.     Lformat();
  2292.     vs_top=sup;
  2293.     base[0]= cdr(base[0]);
  2294.     base[1]= car(base[0]);
  2295.     goto T977;
  2296. }
  2297. /*    function definition for BREAK-HELP    */
  2298.  
  2299. static L84()
  2300. {    register object *base=vs_base;
  2301.     register object *sup=base+VM43;
  2302.     vs_reserve(VM43);
  2303.     check_arg(0);
  2304.     vs_top=sup;
  2305. TTL:;
  2306.     base[0]= symbol_value(VV[63]);
  2307.     base[1]= VV[177];
  2308.     vs_top=(vs_base=base+0)+2;
  2309.     Lformat();
  2310.     return;
  2311. }
  2312. /*    function definition for BREAK-HELP-HELP    */
  2313.  
  2314. static L85()
  2315. {    register object *base=vs_base;
  2316.     register object *sup=base+VM44;
  2317.     vs_reserve(VM44);
  2318.     check_arg(0);
  2319.     vs_top=sup;
  2320. TTL:;
  2321.     base[0]= symbol_value(VV[63]);
  2322.     base[1]= VV[178];
  2323.     vs_top=(vs_base=base+0)+2;
  2324.     Lformat();
  2325.     return;
  2326. }
  2327. /*    function definition for BREAK-HELP-STACK-FUNS    */
  2328.  
  2329. static L86()
  2330. {    register object *base=vs_base;
  2331.     register object *sup=base+VM45;
  2332.     vs_reserve(VM45);
  2333.     check_arg(0);
  2334.     vs_top=sup;
  2335. TTL:;
  2336.     base[0]= symbol_value(VV[63]);
  2337.     base[1]= VV[179];
  2338.     vs_top=(vs_base=base+0)+2;
  2339.     Lformat();
  2340.     return;
  2341. }
  2342.